Amiga Plus 2002 #11

home *** CD-ROM | disk | FTP | other *** search

/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / Development / ncurses-5.3 / doc / html / ada / terminal_interface-curses-menu < prev next >

Wrap

Text File | 2002-10-27 | 51.1 KB | 683 lines

<HTML><HEAD><TITLE>terminal_interface-curses-menus.ads</TITLE></HEAD> <BODY> <HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-menus.ads </H1></DIV><HR> <PRE> ------------------------------------------------------------------------------ -- -- -- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding -- -- -- -- Terminal_Interface.Curses.Menu -- -- -- -- S P E C -- -- -- ------------------------------------------------------------------------------ -- Copyright (c) 1998 Free Software Foundation, Inc. -- -- -- -- Permission is hereby granted, free of charge, to any person obtaining a -- -- copy of this software and associated documentation files (the -- -- "Software"), to deal in the Software without restriction, including -- -- without limitation the rights to use, copy, modify, merge, publish, -- -- distribute, distribute with modifications, sublicense, and/or sell -- -- copies of the Software, and to permit persons to whom the Software is -- -- furnished to do so, subject to the following conditions: -- -- -- -- The above copyright notice and this permission notice shall be included -- -- in all copies or substantial portions of the Software. -- -- -- -- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -- -- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF -- -- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. -- -- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, -- -- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR -- -- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR -- -- THE USE OR OTHER DEALINGS IN THE SOFTWARE. -- -- -- -- Except as contained in this notice, the name(s) of the above copyright -- -- holders shall not be used in advertising or otherwise to promote the -- -- sale, use or other dealings in this Software without prior written -- -- authorization. -- ------------------------------------------------------------------------------ -- Author: <A HREF="http://www.familiepfeifer.de/juergen">Jürgen Pfeifer</A>, 1996 -- Contact: <A HREF="http://www.familiepfeifer.de/Contact.aspx?Lang=en">www.familiepfeifer.de/Contact.aspx?Lang=en</A> -- Version Control: -- @Revision: 1.23 @ -- Binding Version 01.00 ------------------------------------------------------------------------------ -- menu binding. -- This module is generated. Please don't change it manually! -- Run the generator instead. -- | with System; with Ada.Characters.Latin_1; package Terminal_Interface.Curses.Menus is pragma Preelaborate (Terminal_Interface.Curses.Menus); pragma Linker_Options ("-lmenu"); pragma Linker_Options ("-lncurses"); Space : Character renames Ada.Characters.Latin_1.Space; type <A NAME="57_9">Item</A> is private; type Menu is private; --------------------------- -- Interface constants -- --------------------------- <A NAME="63_4">Null_Item</A> : constant <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Item</A>; Null_Menu : constant Menu; subtype Menu_Request_Code is Key_Code range (Key_Max + 1) .. (Key_Max + 17); -- The prefix M_ stands for "Menu Request" <A NAME="70_4">M_Left_Item</A> : constant <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 1; <A NAME="71_4">M_Right_Item</A> : constant <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 2; <A NAME="72_4">M_Up_Item</A> : constant <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 3; <A NAME="73_4">M_Down_Item</A> : constant <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 4; <A NAME="74_4">M_ScrollUp_Line</A> : constant <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 5; <A NAME="75_4">M_ScrollDown_Line</A> : constant <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 6; <A NAME="76_4">M_ScrollDown_Page</A> : constant <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 7; <A NAME="77_4">M_ScrollUp_Page</A> : constant <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 8; <A NAME="78_4">M_First_Item</A> : constant <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 9; <A NAME="79_4">M_Last_Item</A> : constant <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 10; <A NAME="80_4">M_Next_Item</A> : constant <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 11; <A NAME="81_4">M_Previous_Item</A> : constant <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 12; <A NAME="82_4">M_Toggle_Item</A> : constant <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 13; <A NAME="83_4">M_Clear_Pattern</A> : constant <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 14; <A NAME="84_4">M_Back_Pattern</A> : constant <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 15; <A NAME="85_4">M_Next_Match</A> : constant <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#206_4">Key_Max</A> + 16; M_Previous_Match : constant Menu_Request_Code := Key_Max + 17; -- For those who like the old 'C' names for the request codes <A NAME="89_4">REQ_LEFT_ITEM</A> : <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> renames <A HREF="terminal_interface-curses-menus__ads.htm#70_4">M_Left_Item</A>; <A NAME="90_4">REQ_RIGHT_ITEM</A> : <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> renames <A HREF="terminal_interface-curses-menus__ads.htm#71_4">M_Right_Item</A>; <A NAME="91_4">REQ_UP_ITEM</A> : <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> renames <A HREF="terminal_interface-curses-menus__ads.htm#72_4">M_Up_Item</A>; <A NAME="92_4">REQ_DOWN_ITEM</A> : <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> renames <A HREF="terminal_interface-curses-menus__ads.htm#73_4">M_Down_Item</A>; <A NAME="93_4">REQ_SCR_ULINE</A> : <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> renames <A HREF="terminal_interface-curses-menus__ads.htm#74_4">M_ScrollUp_Line</A>; <A NAME="94_4">REQ_SCR_DLINE</A> : <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> renames <A HREF="terminal_interface-curses-menus__ads.htm#75_4">M_ScrollDown_Line</A>; <A NAME="95_4">REQ_SCR_DPAGE</A> : <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> renames <A HREF="terminal_interface-curses-menus__ads.htm#76_4">M_ScrollDown_Page</A>; <A NAME="96_4">REQ_SCR_UPAGE</A> : <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> renames <A HREF="terminal_interface-curses-menus__ads.htm#77_4">M_ScrollUp_Page</A>; <A NAME="97_4">REQ_FIRST_ITEM</A> : <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> renames <A HREF="terminal_interface-curses-menus__ads.htm#78_4">M_First_Item</A>; <A NAME="98_4">REQ_LAST_ITEM</A> : <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> renames <A HREF="terminal_interface-curses-menus__ads.htm#79_4">M_Last_Item</A>; <A NAME="99_4">REQ_NEXT_ITEM</A> : <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> renames <A HREF="terminal_interface-curses-menus__ads.htm#80_4">M_Next_Item</A>; <A NAME="100_4">REQ_PREV_ITEM</A> : <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> renames <A HREF="terminal_interface-curses-menus__ads.htm#81_4">M_Previous_Item</A>; <A NAME="101_4">REQ_TOGGLE_ITEM</A> : <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> renames <A HREF="terminal_interface-curses-menus__ads.htm#82_4">M_Toggle_Item</A>; <A NAME="102_4">REQ_CLEAR_PATTERN</A> : <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> renames <A HREF="terminal_interface-curses-menus__ads.htm#83_4">M_Clear_Pattern</A>; <A NAME="103_4">REQ_BACK_PATTERN</A> : <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> renames <A HREF="terminal_interface-curses-menus__ads.htm#84_4">M_Back_Pattern</A>; <A NAME="104_4">REQ_NEXT_MATCH</A> : <A HREF="terminal_interface-curses-menus__ads.htm#65_12">Menu_Request_Code</A> renames <A HREF="terminal_interface-curses-menus__ads.htm#85_4">M_Next_Match</A>; REQ_PREV_MATCH : Menu_Request_Code renames M_Previous_Match; procedure Request_Name (<A NAME="107_28">Key</A> : in Menu_Request_Code; Name : out String); function Request_Name (Key : Menu_Request_Code) return String; -- Same as function ------------------ -- Exceptions -- ------------------ Menu_Exception : exception; -- -- Menu options -- pragma Warnings (Off); type Menu_Option_Set is record <A NAME="124_10">One_Valued</A> : Boolean; <A NAME="125_10">Show_Descriptions</A> : Boolean; <A NAME="126_10">Row_Major_Order</A> : Boolean; <A NAME="127_10">Ignore_Case</A> : Boolean; <A NAME="128_10">Show_Matches</A> : Boolean; Non_Cyclic : Boolean; end record<A HREF="terminal_interface-curses-menus__ads.htm#121_9">;</A> pragma Pack (Menu_Option_Set); pragma Convention (C, Menu_Option_Set); for Menu_Option_Set use record One_Valued at 0 range 0 .. 0; Show_Descriptions at 0 range 1 .. 1; Row_Major_Order at 0 range 2 .. 2; Ignore_Case at 0 range 3 .. 3; Show_Matches at 0 range 4 .. 4; Non_Cyclic at 0 range 5 .. 5; end record; for Menu_Option_Set'Size use 32; -- Please note: this rep. clause is generated and may be -- different on your system. pragma Warnings (On); function Default_Menu_Options return Menu_Option_Set; -- Initial default options for a menu. pragma Inline (Default_Menu_Options); -- -- Item options -- pragma Warnings (Off); type Item_Option_Set is record Selectable : Boolean; end record<A HREF="terminal_interface-curses-menus__ads.htm#154_9">;</A> pragma Pack (Item_Option_Set); pragma Convention (C, Item_Option_Set); for Item_Option_Set use record Selectable at 0 range 0 .. 0; end record; for Item_Option_Set'Size use 32; -- Please note: this rep. clause is generated and may be -- different on your system. pragma Warnings (On); function Default_Item_Options return Item_Option_Set; -- Initial default options for an item. pragma Inline (Default_Item_Options); -- -- Item Array -- type Item_Array is array (Positive range <>) of aliased Item; pragma Convention (C, Item_Array); type Item_Array_Access is access Item_Array; procedure Free (<A NAME="183_20">IA</A> : in out Item_Array_Access; Free_Items : Boolean := False); -- Release the memory for an allocated item array -- If Free_Items is True, call Delete() for all the items in -- the array. -- |===================================================================== -- | Man page <A HREF="../man/mitem_new.3x.html">mitem_new.3x</A> -- |===================================================================== -- #1A NAME="AFU_1"#2| function Create (<A NAME="194_21">Name</A> : String; Description : String := "") return Item; -- AKA: <A HREF="../man/mitem_new.3x.html">new_item()</A> -- Not inlined. -- #1A NAME="AFU_2"#2| function New_Item (<A NAME="200_23">Name</A> : String; <A HREF="terminal_interface-curses-menus__ads.htm#193_13"> </A> Description : String := "") return Item renames Create; -- AKA: <A HREF="../man/mitem_new.3x.html">new_item()</A> -- #1A NAME="AFU_3"#2| procedure Delete (Itm : in out Item); -- AKA: <A HREF="../man/mitem_new.3x.html">free_item()</A> -- Resets Itm to Null_Item -- |===================================================================== -- | Man page <A HREF="../man/mitem_value.3x.html">mitem_value.3x</A> -- |===================================================================== -- #1A NAME="AFU_4"#2| procedure Set_Value (<A NAME="215_25">Itm</A> : in Item; Value : in Boolean := True); -- AKA: <A HREF="../man/mitem_value.3x.html">set_item_value()</A> pragma Inline (Set_Value); -- #1A NAME="AFU_5"#2| function Value (Itm : Item) return Boolean; -- AKA: <A HREF="../man/mitem_value.3x.html">item_value()</A> pragma Inline (Value); -- |===================================================================== -- | Man page <A HREF="../man/mitem_visible.3x.html">mitem_visible.3x</A> -- |===================================================================== -- #1A NAME="AFU_6"#2| function Visible (Itm : Item) return Boolean; -- AKA: <A HREF="../man/mitem_visible.3x.html">item_visible()</A> pragma Inline (Visible); -- |===================================================================== -- | Man page <A HREF="../man/mitem_opts.3x.html">mitem_opts.3x</A> -- |===================================================================== -- #1A NAME="AFU_7"#2| procedure Set_Options (<A NAME="239_27">Itm</A> : in <A HREF="terminal_interface-curses-menus__ads.htm#154_9">Item</A>; Options : in Item_Option_Set); -- AKA: <A HREF="../man/mitem_opts.3x.html">set_item_opts()</A> -- An overloaded Set_Options is defined later. Pragma Inline appears there -- #1A NAME="AFU_8"#2| procedure Switch_Options (<A NAME="245_30">Itm</A> : in <A HREF="terminal_interface-curses-menus__ads.htm#154_9">Item</A>; <A NAME="246_30">Options</A> : in Item_Option_Set; On : Boolean := True); -- AKA: <A HREF="../man/mitem_opts.3x.html">item_opts_on()</A> -- AKA: item_opts_off() -- An overloaded Switch_Options is defined later. -- Pragma Inline appears there -- #1A NAME="AFU_9"#2| procedure Get_Options (<A NAME="254_27">Itm</A> : in <A HREF="terminal_interface-curses-menus__ads.htm#154_9">Item</A>; Options : out Item_Option_Set); -- AKA: <A HREF="../man/mitem_opts.3x.html">item_opts()</A> -- #1A NAME="AFU_10"#2| function Get_Options (Itm : Item := Null_Item) return Item_Option_Set; -- AKA: <A HREF="../man/mitem_opts.3x.html">item_opts()</A> -- An overloaded Get_Options is defined later. Pragma Inline appears there -- |===================================================================== -- | Man page <A HREF="../man/mitem_name.3x.html">mitem_name.3x</A> -- |===================================================================== -- #1A NAME="AFU_11"#2| procedure Name (<A NAME="268_20">Itm</A> : in Item; Name : out String); -- AKA: <A HREF="../man/mitem_name.3x.html">item_name()</A> function Name (Itm : Item) return String; -- AKA: <A HREF="../man/mitem_name.3x.html">item_name()</A> -- Implemented as function pragma Inline (Name); -- #1A NAME="AFU_12"#2| procedure Description (<A NAME="277_27">Itm</A> : in Item; Description : out String); -- AKA: <A HREF="../man/mitem_name.3x.html">item_description();</A> function Description (Itm : Item) return String; -- AKA: <A HREF="../man/mitem_name.3x.html">item_description();</A> -- Implemented as function pragma Inline (Description); -- |===================================================================== -- | Man page <A HREF="../man/mitem_current.3x.html">mitem_current.3x</A> -- |===================================================================== -- #1A NAME="AFU_13"#2| procedure Set_Current (<A NAME="291_27">Men</A> : in <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; Itm : in Item); -- AKA: <A HREF="../man/mitem_current.3x.html">set_current_item()</A> pragma Inline (Set_Current); -- #1A NAME="AFU_14"#2| function Current (Men : Menu) return Item; -- AKA: <A HREF="../man/mitem_current.3x.html">current_item()</A> pragma Inline (Current); -- #1A NAME="AFU_15"#2| procedure Set_Top_Row (<A NAME="302_27">Men</A> : in <A HREF="terminal_interface-curses__ads.htm#60_9">Menu</A>; Line : in Line_Position); -- AKA: <A HREF="../man/mitem_current.3x.html">set_top_row()</A> pragma Inline (Set_Top_Row); -- #1A NAME="AFU_16"#2| function Top_Row (Men : Menu) return Line_Position; -- AKA: <A HREF="../man/mitem_current.3x.html">top_row()</A> pragma Inline (Top_Row); -- #1A NAME="AFU_17"#2| function Get_Index (Itm : Item) return Positive; -- AKA: <A HREF="../man/mitem_current.3x.html">item_index()</A> -- Please note that in this binding we start the numbering of items -- with 1. So this is number is one more than you get from the low -- level call. pragma Inline (Get_Index); -- |===================================================================== -- | Man page <A HREF="../man/menu_post.3x.html">menu_post.3x</A> -- |===================================================================== -- #1A NAME="AFU_18"#2| procedure Post (<A NAME="325_20">Men</A> : in Menu; Post : in Boolean := True); -- AKA: <A HREF="../man/menu_post.3x.html">post_menu()</A> -- AKA: unpost_menu() pragma Inline (Post); -- |===================================================================== -- | Man page <A HREF="../man/menu_opts.3x.html">menu_opts.3x</A> -- |===================================================================== -- #1A NAME="AFU_19"#2| procedure Set_Options (<A NAME="336_27">Men</A> : in <A HREF="terminal_interface-curses-menus__ads.htm#121_9">Menu</A>; Options : in Menu_Option_Set); -- AKA: <A HREF="../man/menu_opts.3x.html">set_menu_opts()</A> pragma Inline (Set_Options); -- #1A NAME="AFU_20"#2| procedure Switch_Options (<A NAME="342_30">Men</A> : in <A HREF="terminal_interface-curses-menus__ads.htm#121_9">Menu</A>; <A NAME="343_30">Options</A> : in Menu_Option_Set; On : Boolean := True); -- AKA: <A HREF="../man/menu_opts.3x.html">menu_opts_on()</A> -- AKA: menu_opts_off() pragma Inline (Switch_Options); -- #1A NAME="AFU_21"#2| procedure Get_Options (<A NAME="350_27">Men</A> : in <A HREF="terminal_interface-curses-menus__ads.htm#121_9">Menu</A>; Options : out Menu_Option_Set); -- AKA: <A HREF="../man/menu_opts.3x.html">menu_opts()</A> -- #1A NAME="AFU_22"#2| function Get_Options (Men : Menu := Null_Menu) return Menu_Option_Set; -- AKA: <A HREF="../man/menu_opts.3x.html">menu_opts()</A> pragma Inline (Get_Options); -- |===================================================================== -- | Man page <A HREF="../man/menu_win.3x.html">menu_win.3x</A> -- |===================================================================== -- #1A NAME="AFU_23"#2| procedure Set_Window (<A NAME="364_26">Men</A> : in <A HREF="terminal_interface-curses__ads.htm#57_9">Menu</A>; Win : in Window); -- AKA: <A HREF="../man/menu_win.3x.html">set_menu_win()</A> pragma Inline (Set_Window); -- #1A NAME="AFU_24"#2| function Get_Window (Men : Menu) return Window; -- AKA: <A HREF="../man/menu_win.3x.html">menu_win()</A> pragma Inline (Get_Window); -- #1A NAME="AFU_25"#2| procedure Set_Sub_Window (<A NAME="375_30">Men</A> : in <A HREF="terminal_interface-curses__ads.htm#57_9">Menu</A>; Win : in Window); -- AKA: <A HREF="../man/menu_win.3x.html">set_menu_sub()</A> pragma Inline (Set_Sub_Window); -- #1A NAME="AFU_26"#2| function Get_Sub_Window (Men : Menu) return Window; -- AKA: <A HREF="../man/menu_win.3x.html">menu_sub()</A> pragma Inline (Get_Sub_Window); -- #1A NAME="AFU_27"#2| procedure Scale (<A NAME="386_21">Men</A> : in Menu; <A NAME="387_21">Lines</A> : out <A HREF="terminal_interface-curses__ads.htm#65_12">Line_Count</A>; Columns : out Column_Count); -- AKA: <A HREF="../man/menu_win.3x.html">scale_menu()</A> pragma Inline (Scale); -- |===================================================================== -- | Man page <A HREF="../man/menu_cursor.3x.html">menu_cursor.3x</A> -- |===================================================================== -- #1A NAME="AFU_28"#2| procedure Position_Cursor (Men : Menu); -- AKA: <A HREF="../man/menu_cursor.3x.html">pos_menu_cursor()</A> pragma Inline (Position_Cursor); -- |===================================================================== -- | Man page <A HREF="../man/menu_mark.3x.html">menu_mark.3x</A> -- |===================================================================== -- #1A NAME="AFU_29"#2| procedure Set_Mark (<A NAME="406_24">Men</A> : in Menu; Mark : in String); -- AKA: <A HREF="../man/menu_mark.3x.html">set_menu_mark()</A> pragma Inline (Set_Mark); -- #1A NAME="AFU_30"#2| procedure Mark (<A NAME="412_20">Men</A> : in Menu; Mark : out String); -- AKA: <A HREF="../man/menu_mark.3x.html">menu_mark()</A> function Mark (Men : Menu) return String; -- AKA: <A HREF="../man/menu_mark.3x.html">menu_mark()</A> -- Implemented as function pragma Inline (Mark); -- |===================================================================== -- | Man page <A HREF="../man/menu_attribs.3x.html">menu_attribs.3x</A> -- |===================================================================== -- #1A NAME="AFU_31"#2| procedure Set_Foreground (<A NAME="427_7">Men</A> : in <A HREF="terminal_interface-curses__ads.htm#306_9">Menu</A>; <A NAME="428_7">Fore</A> : in <A HREF="terminal_interface-curses__ads.htm#298_9">Character_Attribute_Set</A> := Normal_Video; Color : in Color_Pair := Color_Pair'First); -- AKA: <A HREF="../man/menu_attribs.3x.html">set_menu_fore()</A> pragma Inline (Set_Foreground); -- #1A NAME="AFU_32"#2| procedure Foreground (<A NAME="434_26">Men</A> : in <A HREF="terminal_interface-curses__ads.htm#306_9">Menu</A>; Fore : out Character_Attribute_Set); -- AKA: <A HREF="../man/menu_attribs.3x.html">menu_fore()</A> -- #1A NAME="AFU_33"#2| procedure Foreground (<A NAME="439_26">Men</A> : in <A HREF="terminal_interface-curses__ads.htm#306_9">Menu</A>; <A NAME="440_26">Fore</A> : out <A HREF="terminal_interface-curses__ads.htm#298_9">Character_Attribute_Set</A>; Color : out Color_Pair); -- AKA: <A HREF="../man/menu_attribs.3x.html">menu_fore()</A> pragma Inline (Foreground); -- #1A NAME="AFU_34"#2| procedure Set_Background (<A NAME="447_7">Men</A> : in <A HREF="terminal_interface-curses__ads.htm#306_9">Menu</A>; <A NAME="448_7">Back</A> : in <A HREF="terminal_interface-curses__ads.htm#298_9">Character_Attribute_Set</A> := Normal_Video; Color : in Color_Pair := Color_Pair'First); -- AKA: <A HREF="../man/menu_attribs.3x.html">set_menu_back()</A> pragma Inline (Set_Background); -- #1A NAME="AFU_35"#2| procedure Background (<A NAME="454_26">Men</A> : in <A HREF="terminal_interface-curses__ads.htm#306_9">Menu</A>; Back : out Character_Attribute_Set); -- AKA: <A HREF="../man/menu_attribs.3x.html">menu_back()</A> -- #1A NAME="AFU_36"#2| procedure Background (<A NAME="459_26">Men</A> : in <A HREF="terminal_interface-curses__ads.htm#306_9">Menu</A>; <A NAME="460_26">Back</A> : out <A HREF="terminal_interface-curses__ads.htm#298_9">Character_Attribute_Set</A>; Color : out Color_Pair); -- AKA: <A HREF="../man/menu_attribs.3x.html">menu_back()</A> pragma Inline (Background); -- #1A NAME="AFU_37"#2| procedure Set_Grey (<A NAME="467_7">Men</A> : in <A HREF="terminal_interface-curses__ads.htm#306_9">Menu</A>; <A NAME="468_7">Grey</A> : in <A HREF="terminal_interface-curses__ads.htm#298_9">Character_Attribute_Set</A> := Normal_Video; Color : in Color_Pair := Color_Pair'First); -- AKA: <A HREF="../man/menu_attribs.3x.html">set_menu_grey()</A> pragma Inline (Set_Grey); -- #1A NAME="AFU_38"#2| procedure Grey (<A NAME="474_20">Men</A> : in <A HREF="terminal_interface-curses__ads.htm#306_9">Menu</A>; Grey : out Character_Attribute_Set); -- AKA: <A HREF="../man/menu_attribs.3x.html">menu_grey()</A> -- #1A NAME="AFU_39"#2| procedure Grey (<A NAME="480_7">Men</A> : in <A HREF="terminal_interface-curses__ads.htm#306_9">Menu</A>; <A NAME="481_7">Grey</A> : out <A HREF="terminal_interface-curses__ads.htm#298_9">Character_Attribute_Set</A>; Color : out Color_Pair); -- AKA: <A HREF="../man/menu_attribs.3x.html">menu_grey()</A> pragma Inline (Grey); -- #1A NAME="AFU_40"#2| procedure Set_Pad_Character (<A NAME="487_33">Men</A> : in Menu; Pad : in Character := Space); -- AKA: <A HREF="../man/menu_attribs.3x.html">set_menu_pad()</A> pragma Inline (Set_Pad_Character); -- #1A NAME="AFU_41"#2| procedure Pad_Character (<A NAME="493_29">Men</A> : in Menu; Pad : out Character); -- AKA: <A HREF="../man/menu_attribs.3x.html">menu_pad()</A> pragma Inline (Pad_Character); -- |===================================================================== -- | Man page <A HREF="../man/menu_spacing.3x.html">menu_spacing.3x</A> -- |===================================================================== -- #1A NAME="AFU_42"#2| procedure Set_Spacing (<A NAME="503_27">Men</A> : in <A HREF="terminal_interface-curses__ads.htm#61_9">Menu</A>; <A NAME="504_27">Descr</A> : in <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A> := 0; <A NAME="505_27">Row</A> : in <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A> := 0; Col : in Column_Position := 0); -- AKA: <A HREF="../man/menu_spacing.3x.html">set_menu_spacing()</A> pragma Inline (Set_Spacing); -- #1A NAME="AFU_43"#2| procedure Spacing (<A NAME="511_23">Men</A> : in Menu; <A NAME="512_23">Descr</A> : out <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>; <A NAME="513_23">Row</A> : out <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>; Col : out Column_Position); -- AKA: <A HREF="../man/menu_spacing.3x.html">menu_spacing()</A> pragma Inline (Spacing); -- |===================================================================== -- | Man page <A HREF="../man/menu_pattern.3x.html">menu_pattern.3x</A> -- |===================================================================== -- #1A NAME="AFU_44"#2| function Set_Pattern (<A NAME="523_26">Men</A> : Menu; Text : String) return Boolean; -- AKA: <A HREF="../man/menu_pattern.3x.html">set_menu_pattern()</A> -- Return TRUE if the pattern matches, FALSE otherwise pragma Inline (Set_Pattern); -- #1A NAME="AFU_45"#2| procedure Pattern (<A NAME="530_23">Men</A> : in Menu; Text : out String); -- AKA: <A HREF="../man/menu_pattern.3x.html">menu_pattern()</A> pragma Inline (Pattern); -- |===================================================================== -- | Man page <A HREF="../man/menu_format.3x.html">menu_format.3x</A> -- |===================================================================== -- #1A NAME="AFU_46"#2| procedure Set_Format (<A NAME="540_26">Men</A> : in <A HREF="terminal_interface-curses__ads.htm#63_12">Menu</A>; <A NAME="541_26">Lines</A> : in <A HREF="terminal_interface-curses__ads.htm#65_12">Line_Count</A>; Columns : in Column_Count); -- Not implemented: 0 argument for Lines or Columns; -- instead use Format to get the current sizes -- The default is 16 rows, 1 column. Calling -- set_menu_format with a null menu pointer will change this -- default. A zero row or column argument to set_menu_format -- is interpreted as a request not to change the current -- value. -- AKA: <A HREF="../man/menu_format.3x.html">set_menu_format()</A> pragma Inline (Set_Format); -- #1A NAME="AFU_47"#2| procedure Format (<A NAME="554_22">Men</A> : in <A HREF="terminal_interface-curses__ads.htm#63_12">Menu</A>; <A NAME="555_22">Lines</A> : out <A HREF="terminal_interface-curses__ads.htm#65_12">Line_Count</A>; Columns : out Column_Count); -- AKA: <A HREF="../man/menu_format.3x.html">menu_format()</A> pragma Inline (Format); -- |===================================================================== -- | Man page <A HREF="../man/menu_hook.3x.html">menu_hook.3x</A> -- |===================================================================== type Menu_Hook_Function is access procedure (Men : in Menu); pragma Convention (C, Menu_Hook_Function); -- #1A NAME="AFU_48"#2| procedure Set_Item_Init_Hook (<A NAME="568_34">Men</A> : in <A HREF="terminal_interface-curses-menus__ads.htm#563_9">Menu</A>; Proc : in Menu_Hook_Function); -- AKA: <A HREF="../man/menu_hook.3x.html">set_item_init()</A> pragma Inline (Set_Item_Init_Hook); -- #1A NAME="AFU_49"#2| procedure Set_Item_Term_Hook (<A NAME="574_34">Men</A> : in <A HREF="terminal_interface-curses-menus__ads.htm#563_9">Menu</A>; Proc : in Menu_Hook_Function); -- AKA: <A HREF="../man/menu_hook.3x.html">set_item_term()</A> pragma Inline (Set_Item_Term_Hook); -- #1A NAME="AFU_50"#2| procedure Set_Menu_Init_Hook (<A NAME="580_34">Men</A> : in <A HREF="terminal_interface-curses-menus__ads.htm#563_9">Menu</A>; Proc : in Menu_Hook_Function); -- AKA: <A HREF="../man/menu_hook.3x.html">set_menu_init()</A> pragma Inline (Set_Menu_Init_Hook); -- #1A NAME="AFU_51"#2| procedure Set_Menu_Term_Hook (<A NAME="586_34">Men</A> : in <A HREF="terminal_interface-curses-menus__ads.htm#563_9">Menu</A>; Proc : in Menu_Hook_Function); -- AKA: <A HREF="../man/menu_hook.3x.html">set_menu_term()</A> pragma Inline (Set_Menu_Term_Hook); -- #1A NAME="AFU_52"#2| function Get_Item_Init_Hook (Men : Menu) return Menu_Hook_Function; -- AKA: <A HREF="../man/menu_hook.3x.html">item_init()</A> pragma Inline (Get_Item_Init_Hook); -- #1A NAME="AFU_53"#2| function Get_Item_Term_Hook (Men : Menu) return Menu_Hook_Function; -- AKA: <A HREF="../man/menu_hook.3x.html">item_term()</A> pragma Inline (Get_Item_Term_Hook); -- #1A NAME="AFU_54"#2| function Get_Menu_Init_Hook (Men : Menu) return Menu_Hook_Function; -- AKA: <A HREF="../man/menu_hook.3x.html">menu_init()</A> pragma Inline (Get_Menu_Init_Hook); -- #1A NAME="AFU_55"#2| function Get_Menu_Term_Hook (Men : Menu) return Menu_Hook_Function; -- AKA: <A HREF="../man/menu_hook.3x.html">menu_term()</A> pragma Inline (Get_Menu_Term_Hook); -- |===================================================================== -- | Man page <A HREF="../man/menu_items.3x.html">menu_items.3x</A> -- |===================================================================== -- #1A NAME="AFU_56"#2| procedure Redefine (<A NAME="616_24">Men</A> : in <A HREF="terminal_interface-curses-menus__ads.htm#180_9">Menu</A>; Items : in Item_Array_Access); -- AKA: <A HREF="../man/menu_items.3x.html">set_menu_items()</A> pragma Inline (Redefine); procedure Set_Items (<A NAME="621_25">Men</A> : in <A HREF="terminal_interface-curses-menus__ads.htm#180_9">Menu</A>; <A HREF="terminal_interface-curses-menus__ads.htm#620_14"> </A> Items : in Item_Array_Access) renames Redefine; pragma Inline (Set_Items); -- #1A NAME="AFU_57"#2| function Items (<A NAME="626_20">Men</A> : Menu; Index : Positive) return Item; -- AKA: <A HREF="../man/menu_items.3x.html">menu_items()</A> pragma Inline (Items); -- #1A NAME="AFU_58"#2| function Item_Count (Men : Menu) return Natural; -- AKA: <A HREF="../man/menu_items.3x.html">item_count()</A> pragma Inline (Item_Count); -- |===================================================================== -- | Man page <A HREF="../man/menu_new.3x.html">menu_new.3x</A> -- |===================================================================== -- #1A NAME="AFU_59"#2| function Create (Items : Item_Array_Access) return Menu; -- AKA: <A HREF="../man/menu_new.3x.html">new_menu()</A> -- Not inlined function New_Menu (Items : Item_Array_Access) return Menu renames Create; -- #1A NAME="AFU_60"#2| procedure Delete (Men : in out Menu); -- AKA: <A HREF="../man/menu_new.3x.html">free_menu()</A> -- Reset Men to Null_Menu -- Not inlined -- |===================================================================== -- | Man page <A HREF="../man/menu_driver.3x.html">menu_driver.3x</A> -- |===================================================================== type Driver_Result is (<A NAME="657_27">Menu_Ok</A>, <A NAME="658_27">Request_Denied</A>, <A NAME="659_27">Unknown_Request</A>, No_Match); -- #1A NAME="AFU_61"#2| function Driver (<A NAME="663_21">Men</A> : <A HREF="terminal_interface-curses__ads.htm#68_9">Menu</A>; Key : Key_Code) return Driver_Result; -- AKA: <A HREF="../man/menu_driver.3x.html">menu_driver()</A> -- Driver is not inlined -- #1A NAME="AFU_62"#2| -- Not Implemented: menu_request_name, menu_request_by_name ------------------------------------------------------------------------------- private type <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Item</A> is new System.Storage_Elements.Integer_Address; type Menu is new System.Storage_Elements.Integer_Address; <A HREF="terminal_interface-curses-menus__ads.htm#63_4">Null_Item</A> : constant <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Item</A> := 0; Null_Menu : constant Menu := 0; end Terminal_Interface.Curses.Menus; </PRE></BODY></HTML>